home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aaq.d64
/
c.dat
< prev
next >
Wrap
Text File
|
2007-02-28
|
2KB
|
110 lines
8000 FOR J:=1 TO 4 DO //C1
8010 PENUP
8020 FORWARD 2
8030 PENDOWN
8040 FORWARD 24
8050 PENUP
8060 BACK 26
8070 LEFT 90
8080 FORWARD 1
8090 RIGHT 90
8100 ENDFOR J
8110 //
8120 FOR J:=1 TO 2 DO //2
8130 PENDOWN
8140 FORWARD 28
8150 PENUP
8160 BACK 28
8170 LEFT 90
8180 FORWARD 1
8190 RIGHT 90
8200 ENDFOR J
8210 //
8220 FOR J:=1 TO 2 DO //3
8230 PENDOWN
8240 FORWARD 11
8250 PENUP
8260 FORWARD 11
8270 PENDOWN
8280 FORWARD 6
8290 PENUP
8300 BACK 28
8310 LEFT 90
8320 FORWARD 1
8330 RIGHT 90
8340 ENDFOR J
8350 //
8360 FOR J:=1 TO 16 DO //4
8370 PENDOWN
8380 FORWARD 11
8390 PENUP
8400 BACK 11
8410 LEFT 90
8420 FORWARD 1
8430 RIGHT 90
8440 ENDFOR J
8450 //
8460 FOR J:=1 TO 6 DO //5
8470 PENUP
8480 FORWARD 2
8490 PENDOWN
8500 FORWARD 9
8510 PENUP
8520 BACK 11
8530 LEFT 90
8540 FORWARD 1
8550 RIGHT 90
8560 ENDFOR J
8570 //
8580 FOR J:=1 TO 2 DO //6
8590 PENUP
8600 FORWARD 2
8610 PENDOWN
8620 FORWARD 9
8630 PENUP
8640 FORWARD 11
8650 PENDOWN
8660 FORWARD 6
8670 PENUP
8680 BACK 28
8690 LEFT 90
8700 FORWARD 1
8710 RIGHT 90
8720 ENDFOR J
8730 //
8740 FOR J:=1 TO 2 DO //7
8750 PENUP
8760 FORWARD 2
8770 PENDOWN
8780 FORWARD 26
8790 PENUP
8800 BACK 28
8810 LEFT 90
8820 FORWARD 1
8830 RIGHT 90
8840 ENDFOR J
8850 //
8860 FOR J:=1 TO 4 DO //8
8870 PENUP
8880 FORWARD 4
8890 PENDOWN
8900 FORWARD 22
8910 PENUP
8920 BACK 26
8930 LEFT 90
8940 FORWARD 1
8950 RIGHT 90
8960 ENDFOR J
8970 //
8980 FOR J:=1 TO 2 DO //9
8990 PENUP
9000 FORWARD 12
9010 PENDOWN
9020 FORWARD 6
9030 PENUP
9040 BACK 18
9050 LEFT 90
9060 FORWARD 1
9070 RIGHT 90
9080 ENDFOR J